﻿Public Class ReportDesignerFilterForm

    Private Sub ReportDesignerFilterForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim TheView As DataView

        TheView = LoadDataView("Select Budget_ID, Budget_Description from Budgets")

        'FilterBox.DataSource = TheView
        'FilterBox.DisplayMember = "Budget_Description"
        'FilterBox.ValueMember = "Budget_ID"
        FilterListBox.DataSource = Nothing
        FilterListBox.Items.Clear()

        FilterListBox.DataSource = TheView
        FilterListBox.DisplayMember = "Budget_Description"
        FilterListBox.ValueMember = "Budget_ID"

        'Dim r As DataRowView

        'For Each r In TheView

        '    FilterCheckBox.Items.Add(r("Budget_Description").ToString)

        'Next

        If LoadPeriodBox(PeriodBox) Then
            PeriodBox.SelectedValue = CurrentPeriodID

        End If
    End Sub

   
End Class